home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.0 / background_15575.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  74 lines
  1. -- background: 15575 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Information
  6. ----- HyperTalk script -----
  7. on idle
  8.   global steveLine,lasttick1,lastTick2
  9.  
  10.   --put "Developer Stack" going down side
  11.   if (the ticks-lastTick1)>100 then  -- better performance
  12.     put the ticks into lastTick1
  13.     put 1+steveLine into steveLine
  14.     if steveLine>26 then put 1 into steveLine
  15.     put empty into card field steve
  16.     put "Developer Stack" into line SteveLine of card field steve
  17.   end if
  18.  
  19.   --put message across top
  20.   if (the ticks-lastTick2)>500 then
  21.     put the ticks into lastTick2
  22.     get card field Name
  23.     if it is empty or it is "From ART Incorporated" then
  24.       put empty into card field name
  25.       click at loc of card field "Name"
  26.       type "Innovative Hypercard Stackware"
  27.     else
  28.       put empty into card field Name
  29.       click at loc of card field "Name"
  30.       type "From ART Incorporated"
  31.     end if
  32.   end if
  33.   pass idle
  34. end idle
  35.  
  36.  
  37.  
  38. -- part 1 (button)
  39. -- low flags: 00
  40. -- high flags: 2000
  41. -- rect: left=468 top=1 right=29 bottom=505
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 11645 / 11645
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Return
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   if the optionkey is down then
  53.     pass mouseup
  54.   end if
  55.  
  56.   visual effect iris close
  57.   go first card
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 2 (field)
  63. -- low flags: 81
  64. -- high flags: 4002
  65. -- rect: left=381 top=202 right=333 bottom=489
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 3
  70. -- text size: 9
  71. -- style flags: 0
  72. -- line height: 12
  73. -- part name: CrossRef
  74.